home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / games2 / sznrn203.lha / HDInstall next >
Text File  |  1996-04-19  |  6KB  |  285 lines
  1.  
  2. (complete 0)
  3. (set @default-dest "SYS:")
  4.  
  5. ; Texts
  6.  
  7. (set #Intro-Txt
  8. (cat "\n\nWelcome to \n"
  9. "THE SZENARION V2.02\n"
  10. "HD Installation\n\n\n\n"
  11. "®1993-96 by Stefan Waschk\n\n"
  12. "this is SHAREWARE!\n"
  13. "see manual for registration or write to:\n"
  14. "___________________________________________________\n"
  15. "Stefan Waschk/Siegfriedstr.119/D-38106 Braunschweig\n\n"
  16. ))(set #Warning-Txt
  17. (cat "\n\nWARNING!\n"
  18. "--------\n\n"
  19. "Szenarion requires 5 MB free on your disk \n\n"
  20. "3MB RAM, >=Kick2.0, 68020++, AGA or FLICKERFIXER\n\n"
  21. ))(set #Path-Txt
  22. (cat "Select a directory for\n"
  23. "THE SZENARION V2.0"
  24. ))(set #Path-Help
  25. (cat "\nThis section lets you choose the "
  26. "target directory to install Szenarion. \n\n"
  27. "Default is SYS:\n\n\n"
  28. @askdir-help
  29. ))(set #Rename-Help
  30. (cat "\n    If your AMIGA has an arithmetic unit (MMU),\n"
  31.      "    rendering will take part much faster.\n"
  32.      "    Basic A1200 and 68LCxx AMIGAs don`t have it!\n\n\n"
  33. @rename-help
  34. ))(set #Screenmode-Help
  35. (cat "\n    If you own a A1200, A4000 with the AGA chipset,\n"
  36.      "    you must choose the EURO72 screenmode.\n\n"
  37.      "    With A2000, A3000(..) and FLICKERFIXER, you have\n"
  38.      "    to choose NTSCHIRESLACED!\n\n"
  39.      "    PICASSOII-users can use both, but have to set\n"
  40.      "    the refresh-time to one second. Scrolling will\n"
  41.      "    be worse, for that isn't done by blitter!\n"
  42. ))(set #Editor-Help
  43. (cat "\n    For editing character-files, You will\n"
  44.      "    have to specify your ascii-editor. Default is\n"
  45.      "    set to SYS:Tools/MEmacs\n\n"
  46.      "    Write changes to the ENV/Szenarion.config file:\n\n"
  47.      "    f.e. Path,Work:CED/CED\n"
  48. ))
  49.  
  50.  
  51. ; Main 
  52.  
  53. (message #Intro-Txt)
  54. (message #Warning-Txt)
  55. (set target 
  56. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  57. ))
  58.  
  59. (set @default-dest target)
  60.  
  61. (copyfiles
  62. (prompt "Copying to " #target)
  63. (help @copy-files-help)
  64. (source "")
  65. (dest (tackon target "Szenarion"))
  66. (pattern "szen_1.lha")
  67. )
  68.  
  69. (complete 10)
  70. (set #path1
  71. (cat "Tools/lha x "
  72.      (tackon target "Szenarion/szen_1.lha ")
  73.      (tackon target "Szenarion/")
  74. ))
  75.  
  76. (run #path1
  77.   (prompt "extracting file")
  78.   (help "not available now")
  79. )
  80. (set #path1
  81. (cat (tackon target "Szenarion/szen_1.lha")
  82. ))
  83. (Delete #path1)
  84.  
  85. (complete 35)
  86.  
  87. (if (exists "szen_2.lha") 
  88.   (
  89.     (copyfiles
  90.     (prompt "Copying to " #target)
  91.     (help @copy-files-help)
  92.     (source "")
  93.     (dest (tackon target "Szenarion"))
  94.     (pattern "szen_2.lha")
  95.     )
  96.   )
  97.   (
  98.     (message "\nInstert DISK II in drive\n\nDF0:\n___\n")
  99.     (copyfiles
  100.     (prompt "Copying to " #target)
  101.     (help @copy-files-help)
  102.     (source "DF0:")
  103.     (dest (tackon target "Szenarion"))
  104.     (pattern "szen_2.lha")
  105.     )
  106.     (message "\nReinstert DISK I in drive\n\nDF0:\n___\n")
  107.   )
  108. )
  109.  
  110. (complete 50)
  111.  
  112. (set #path1
  113. (cat "Tools/lha x " 
  114.      (tackon target "Szenarion/szen_2.lha ")     
  115.      (tackon target "Szenarion/")
  116. ))
  117.  
  118. (run #path1
  119.   (prompt "extracting file")
  120.   (help "not available now")
  121. )
  122. (complete 65)
  123.  
  124. (set #path1
  125. (cat (tackon target "Szenarion/szen_2.lha")
  126. ))
  127. (Delete #path1)
  128.  
  129. (if (exists "szen_3.lha") 
  130.   (
  131.     (copyfiles
  132.     (prompt "Copying to " #target)
  133.     (help @copy-files-help)
  134.     (source "")
  135.     (dest (tackon target "Szenarion"))
  136.     (pattern "szen_3.lha")
  137.     )
  138.   )
  139.   (
  140.     (message "\nInstert DISK III in drive\n\nDF0:\n___\n")
  141.     (copyfiles
  142.     (prompt "Copying to " #target)
  143.     (help @copy-files-help)
  144.     (source "DF0:")
  145.     (dest (tackon target "Szenarion"))
  146.     (pattern "szen_3.lha")
  147.     )
  148.     (message "\nReinstert DISK I in drive\n\nDF0:\n___\n")
  149.   )
  150. )
  151.  
  152. (complete 85)
  153.  
  154. (set #path1
  155. (cat "Tools/lha x " 
  156.      (tackon target "Szenarion/szen_3.lha ")     
  157.      (tackon target "Szenarion/")
  158. ))
  159.  
  160. (run #path1
  161.   (prompt "extracting file")
  162.   (help "not available now")
  163. )
  164. (complete 95)
  165.  
  166. (set #path1
  167. (cat (tackon target "Szenarion/szen_3.lha")
  168. ))
  169. (Delete #path1)
  170.  
  171.  
  172. (set #path2
  173. (cat (tackon target "Szenarion/ENV/Szenarion.config")
  174. ))
  175.  
  176. (
  177.   if ( askbool
  178.         (prompt "now modifying the SCREENMODE. EURO72(AGA)\nor NTSCHIRESLACED (FLICKERFIXER) is possibe.\n\n____________________________________\nDo you want to open EURO72 screens?" )
  179.         (help #Screenmode-Help)
  180.      )
  181.   (
  182.      (set #path1
  183.      (cat (tackon target "Szenarion/ENV/Szenarion.config.AGA")
  184.      ))
  185.      (Rename #path1 #path2)
  186.      (Delete #path1)
  187.      (set #path1
  188.      (cat (tackon target "Szenarion/ENV/Szenarion.config.noAGA")
  189.      ))
  190.      (Delete #path1)
  191.   )
  192.   (
  193.      (set #path1
  194.      (cat (tackon target "Szenarion/ENV/Szenarion.config.noAGA")
  195.      ))
  196.      (Rename #path1 #path2)
  197.      (Delete #path1)
  198.      (set #path1
  199.      (cat (tackon target "Szenarion/ENV/Szenarion.config.AGA")
  200.      ))
  201.      (Delete #path1)
  202.   )
  203. )
  204. (complete 98)
  205.  
  206. (set #path2
  207. (cat (tackon target "Szenarion/RKSim")
  208. ))
  209. (set #path3
  210. (cat (tackon target "Szenarion/RFEditor")
  211. ))
  212. (
  213.   if ( askbool
  214.         (prompt "now installing the SZEMARION tools\n\nRKSim & RFEditor\n__________________________________\nDoes your AMIGA have a MMU ?" )
  215.         (help #Rename-Help)
  216.      )
  217.   (
  218.      (set #path1
  219.      (cat (tackon target "Szenarion/RKSim.68020MMU")
  220.      ))
  221.      (Rename #path1 #path2)
  222.  
  223.      (set #path1
  224.      (cat (tackon target "Szenarion/RFEditor.68020MMU")
  225.      ))
  226.      (Rename #path1 #path3)
  227.  
  228.      (set #path1
  229.      (cat (tackon target "Szenarion/RKSim.68020noMMU")
  230.      ))
  231.      (Delete #path1)
  232.  
  233.      (set #path1
  234.      (cat(tackon target "Szenarion/RFEditor.68020noMMU")
  235.      ))
  236.      (Delete #path1)
  237.   )
  238.   (
  239.      (set #path1
  240.      (cat (tackon target "Szenarion/RKSim.68020noMMU")
  241.      ))
  242.      (Rename #path1 #path2)
  243.  
  244.      (set #path1
  245.      (cat (tackon target "Szenarion/RFEditor.68020noMMU")
  246.      ))
  247.      (Rename #path1 #path3)
  248.  
  249.      (set #path1
  250.      (cat (tackon target "Szenarion/RKSim.68020MMU")
  251.      ))
  252.      (Delete #path1)
  253.  
  254.      (set #path1
  255.      (cat (tackon target "Szenarion/RFEditor.68020MMU")
  256.      ))
  257.      (Delete #path1)
  258.   )
  259. )
  260. (complete 99)
  261. (set #path1
  262. (cat target
  263.      "Szenarion.info"
  264. ))
  265.  
  266. (copyfiles
  267. (prompt "Copying to " #target)
  268. (help @copy-files-help)
  269. (source "")
  270. (dest target)
  271. (pattern "info")
  272. )
  273.  
  274. (set #path1
  275. (cat (tackon target "Szenarion.info")
  276. ))
  277. (set #path2
  278. (cat (tackon target "info")
  279. ))
  280. (message #Editor-Help)
  281.  
  282. (rename #path2 #path1)
  283.  
  284. (complete 100)
  285.